home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Falcon / WINREC / LODS / NOTHING.ASM < prev    next >
Encoding:
Assembly Source File  |  1993-04-05  |  2.1 KB  |  109 lines
  1. BCR        EQU     $FFFE           ; Port A Bus Control Register
  2. HTX        EQU     $FFEB           ; Host Transmit Data Register
  3. HSR       EQU        $ffe9             ; Host status register
  4. RX        EQU     $FFEF           ; Serial Receive Data Register
  5. TX        EQU     $FFEF           ; Serial Transmit Data Register
  6. TSR        EQU     $ffee            ; don't care skip register
  7. CRA      EQU     $FFEC              ; SSI Control Register A
  8. CRB       EQU     $FFED           ; SSI Control Register B
  9. SSR        EQU        $FFEE
  10. IPR       EQU     $FFFF           ; Interrupt Priority Register
  11. PCC       EQU     $FFE1           ; Port C Control Register
  12. PCDDR     EQU     $FFE3           ; Port C Data Direction Register
  13.  
  14. PBC        EQU        $ffe0            
  15. HCR        EQU        $ffe8            
  16. HRX        EQU        $ffeb            
  17.     
  18.     org x:$10
  19.  
  20. in_l                 dc 1
  21. in_r                 dc 1
  22. out_l                dc 1
  23. out_r                dc 1
  24. temp                 dc 1
  25. temp1                dc 1
  26. inflag               dc 1
  27. outflag              dc 1
  28. sync                 dc 0
  29.  
  30.     org p:$0
  31.     jmp start
  32.  
  33.     org p:$000c
  34.     jsr datain
  35.     
  36.     org p:$0010
  37.     jsr dataout
  38.      
  39.     org p:$40
  40. start:
  41.     MOVEP X:<<HRX,X0
  42.     MOVEC #<0,SP
  43.     MOVEP #>$4100,X:<<CRA
  44.     MOVEP #>$1F8,X:<<PCC
  45.     BTST  #4,X:<<SSR
  46.     MOVEP #>$F800,X:<<CRB
  47.     MOVEP #>0,X:<<BCR
  48.     MOVEP #>$3000,X:<<IPR
  49.     MOVEP #$000001,X:PBC
  50.  
  51. ints_on:
  52.     ANDI  #<$FC,MR
  53. main:
  54.     JCLR  #0,X:<sync,main
  55.  
  56. ;Daten einfach kopieren und nichts damit tun...
  57.  
  58.     MOVE  X:<in_l,X0
  59.     MOVE  X0,X:<out_l
  60.     MOVE  X:<in_r,X0
  61.     MOVE  X0,X:<out_r
  62.  
  63.  
  64.     BCLR  #0,X:<sync
  65.     JMP   <main
  66.  
  67.  
  68. ;Interruptroutinen
  69.  
  70. datain:
  71.     BSET  #0,X:<sync
  72.     MOVE  X0,X:<temp
  73.     MOVE  X1,X:<temp1
  74.     JCLR  #0,X:<inflag,>do_leftin
  75. do_rightin:
  76.     MOVEP X:<<RX,X1
  77.     MOVE  X1,X:<in_r
  78.     BCLR  #0,X:<inflag
  79.     MOVE  X:<temp,X0
  80.     MOVE  X:<temp1,X1
  81.     RTI
  82. do_leftin:
  83.     MOVEP X:<<RX,X0
  84.     MOVE  X0,X:<in_l
  85.     BSET  #0,X:<inflag
  86.     MOVE  X:<temp,X0
  87.     MOVE  X:<temp1,X1
  88.     RTI
  89.  
  90. dataout:
  91.     MOVE  X0,X:<temp
  92.     MOVE  X1,X:<temp1
  93.     JCLR  #0,X:<outflag,>do_leftout
  94. do_rightout:
  95.     MOVE  X:<out_r,X1
  96.     MOVEP X1,X:<<RX
  97.     BCLR  #0,X:<outflag
  98.     MOVE  X:<temp,X0
  99.     MOVE  X:<temp1,X1
  100.     RTI
  101. do_leftout:
  102.     MOVE  X:<out_l,X0
  103.     MOVEP X0,X:<<RX
  104.     BSET  #0,X:<outflag
  105.     MOVE  X:<temp,X0
  106.     MOVE  X:<temp1,X1
  107.     RTI
  108.  
  109.